Attribute VB_Name = "mdlConversion"
Option Explicit

Public psbConversion_Press() As Double
Public psbConversion_Length() As Double
Public psbConversion_Volume() As Double
Public psbConversion_Heat() As Double
Public psbConversion_Area() As Double
Public psbConversion_Weight() As Double
Public psbConversion_Power() As Double

Public Sub InitialConversion()
    On Error Resume Next
    ReDim psbConversion_Press(0 To 12) As Double
    psbConversion_Press(0) = 1000
    psbConversion_Press(1) = 100
    psbConversion_Press(2) = 1
    psbConversion_Press(3) = 100000
    psbConversion_Press(4) = 100
    psbConversion_Press(5) = 101325
    psbConversion_Press(6) = 133.322368421053
    psbConversion_Press(7) = 3386.38815789475
    psbConversion_Press(8) = 6894.757
    psbConversion_Press(9) = 47.8802569444444
    psbConversion_Press(10) = 98066.5
    psbConversion_Press(11) = 9.80665
    psbConversion_Press(12) = 9.80665
    ReDim psbConversion_Length(0 To 18) As Double
    psbConversion_Length(0) = 1000
    psbConversion_Length(1) = 1
    psbConversion_Length(2) = 0.1
    psbConversion_Length(3) = 0.01
    psbConversion_Length(4) = 0.001
    psbConversion_Length(5) = 0.000001
    psbConversion_Length(6) = 500
    psbConversion_Length(7) = 10 / 3
    psbConversion_Length(8) = 1 / 3
    psbConversion_Length(9) = 1 / 30
    psbConversion_Length(10) = 1 / 300
    psbConversion_Length(11) = 1 / 3000
    psbConversion_Length(12) = 0.3048
    psbConversion_Length(13) = 1609.344
    psbConversion_Length(14) = 201.168
    psbConversion_Length(15) = 0.9144
    psbConversion_Length(16) = 0.0254
    psbConversion_Length(17) = 1852
    psbConversion_Length(18) = 1.8288
    ReDim psbConversion_Volume(0 To 34) As Double
    psbConversion_Volume(0) = 1000
    psbConversion_Volume(1) = 100
    psbConversion_Volume(2) = 10
    psbConversion_Volume(3) = 1
    psbConversion_Volume(4) = 0.1
    psbConversion_Volume(5) = 0.01
    psbConversion_Volume(6) = 0.001
    psbConversion_Volume(7) = 0.000001
    psbConversion_Volume(8) = 0.015
    psbConversion_Volume(9) = 0.005
    psbConversion_Volume(10) = 0.016387064
    psbConversion_Volume(11) = 1233481.83754752
    psbConversion_Volume(12) = 764.554857984
    psbConversion_Volume(13) = 28.316846592
    psbConversion_Volume(14) = 3.785411784
    psbConversion_Volume(15) = 158.987294928
    psbConversion_Volume(16) = 0.946352946
    psbConversion_Volume(17) = 0.473176473
    psbConversion_Volume(18) = 0.11829411825
    psbConversion_Volume(19) = 0.0295735295625
    psbConversion_Volume(20) = 3.6966911953125E-03
    psbConversion_Volume(21) = 4.81339999389648E-07
    psbConversion_Volume(22) = 115.627123584
    psbConversion_Volume(23) = 35.23907016688
    psbConversion_Volume(24) = 8.80976754172
    psbConversion_Volume(25) = 1.101220942715
    psbConversion_Volume(26) = 0.5506104713575
    psbConversion_Volume(27) = 0.2365882365
    psbConversion_Volume(28) = 0.01478676478125
    psbConversion_Volume(29) = 0.00492892159375
    psbConversion_Volume(30) = 4.54609
    psbConversion_Volume(31) = 163.65924
    psbConversion_Volume(32) = 36.36872
    psbConversion_Volume(33) = 0.56826125
    psbConversion_Volume(34) = 0.0284130625
    ReDim psbConversion_Heat(0 To 7) As Double
    psbConversion_Heat(0) = 1
    psbConversion_Heat(1) = 9.80392157
    psbConversion_Heat(2) = 2647603.9184538
    psbConversion_Heat(3) = 2684563.7583893
    psbConversion_Heat(4) = 3599712.02303816
    psbConversion_Heat(5) = 4185.851820846
    psbConversion_Heat(6) = 1055.0749103
    psbConversion_Heat(7) = 1.3557483731
    ReDim psbConversion_Area(0 To 12) As Double
    psbConversion_Area(0) = 1000000
    psbConversion_Area(1) = 10000
    psbConversion_Area(2) = 1
    psbConversion_Area(3) = 666.666666666667
    psbConversion_Area(4) = 0.01
    psbConversion_Area(5) = 0.0001
    psbConversion_Area(6) = 0.000001
    psbConversion_Area(7) = 0.09290304
    psbConversion_Area(8) = 0.83612736
    psbConversion_Area(9) = 25.29285264
    psbConversion_Area(10) = 4046.8564224
    psbConversion_Area(11) = 2589988.110336
    psbConversion_Area(12) = 0.00064516
    ReDim psbConversion_Weight(0 To 20) As Double
    psbConversion_Weight(0) = 1000
    psbConversion_Weight(1) = 1
    psbConversion_Weight(2) = 0.001
    psbConversion_Weight(3) = 0.000001
    psbConversion_Weight(4) = 0.5
    psbConversion_Weight(5) = 50
    psbConversion_Weight(6) = 0.05
    psbConversion_Weight(7) = 0.005
    psbConversion_Weight(8) = 0.45359237
    psbConversion_Weight(9) = 1016.0469088
    psbConversion_Weight(10) = 907.18474
    psbConversion_Weight(11) = 50.80234544
    psbConversion_Weight(12) = 45.359237
    psbConversion_Weight(13) = 6.35029318
    psbConversion_Weight(14) = 0.028349523125
    psbConversion_Weight(15) = 1.7718451953125E-03
    psbConversion_Weight(16) = 0.00006479891
    psbConversion_Weight(17) = 0.3732417216
    psbConversion_Weight(18) = 0.0311034768
    psbConversion_Weight(19) = 0.00155517384
    psbConversion_Weight(20) = 0.00006479891
    ReDim psbConversion_Power(0 To 9) As Double
    psbConversion_Power(0) = 0.001
    psbConversion_Power(1) = 1
    psbConversion_Power(2) = 0.745712172
    psbConversion_Power(3) = 0.7352941
    psbConversion_Power(4) = 0.0098039215
    psbConversion_Power(5) = 4.1841004
    psbConversion_Power(6) = 1.05507491
    psbConversion_Power(7) = 0.0013557483731
    psbConversion_Power(8) = 0.001
    psbConversion_Power(9) = 0.001
End Sub
